home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / wb / M2I5_76.lha / M2I5_76 / Rexx / Stat.M2I < prev    next >
Encoding:
Text File  |  1998-03-24  |  241 b   |  17 lines
  1. /* Display the number of Drawers and Tools */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS "M2IPort.Rexx"
  5.  
  6.  RESULT=0
  7.  
  8.  count "*.d"
  9.  drw=RESULT
  10.  RESULT=0
  11.  count "*.t"
  12.  tool=RESULT
  13.  
  14.  total=drw+tool
  15.  
  16.  message "Stat : "drw" Drawers - "tool" Tools - "total" Icons."
  17.